home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue61 / BHO / uSimpleBHO.pas < prev   
Pascal/Delphi Source File  |  2000-06-17  |  1KB  |  49 lines
  1. unit uSimpleBHO;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, ActiveX, Classes, ComObj, pSimpleBHO_TLB, StdVcl, Dialogs;
  7.  
  8. type
  9.   TMyBHO = class(TTypedComObject, IMyBHO, IObjectWithSite )
  10.   protected
  11.     {Declare IMyBHO methods here}
  12.   public
  13.     function SetSite(const pUnkSite: IUnknown ):HResult; stdcall;
  14.     function GetSite(const riid: TIID; out site: IUnknown):HResult; stdcall;
  15. {    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
  16.       Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
  17.  }
  18.   end;
  19.  
  20. implementation
  21.  
  22. uses ComServ;
  23.  
  24. function TMyBHO.SetSite(const pUnkSite: IUnknown ):HResult;
  25. begin
  26.   ShowMessage( 'Inside SetSite.' );
  27.   Result := S_OK;
  28. end;
  29.  
  30. function TMyBHO.GetSite(const riid: TIID; out site: IUnknown):HResult;
  31. begin
  32.   Result := S_OK;
  33.  
  34. end;
  35.  
  36. {function TMyBHO.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
  37.       Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
  38. begin
  39.  
  40.    Result := S_OK;
  41. end;
  42. }
  43.  
  44. initialization
  45.   TTypedComObjectFactory.Create(ComServer, TMyBHO, Class_MyBHO,
  46.     ciMultiInstance, tmApartment);
  47.  
  48. end.
  49.